Apple Reference & Presen…tion Library 2 (Reseller)/Apple R&P Lib Reseller v2.0.iso/4-Fonts & Software/Demo Software/AppMaker/Demo AppMaker™/Demo AppMaker™.rsrc/TmpC_203_Window.txt

Text File | 1989-04-09 | 3KB | 2 lines

# (decoded with TMPL 13671)
/* %filename% *//* Created %date% %time% by AppMaker */%If MPW%#include <Types.h>#include <Quickdraw.h>#include <Controls.h>#include <Dialogs.h>#include <Events.h>#include <Lists.h>#include <Menus.h>#include <TextEdit.h>%end if%#include "Globals.h"#include "ResourceDefs.h"#include "Scrolling.h"#include "WindowAids.h"#include "Miscellany.h"#include "%unitname%.h"%If MPW%#include <ToolUtils.h>%end if%#define nil            0L%If MPW%#pragma segment %unitname%%end if% /*----------*/void Open%WindName% (fName, vRefNum, fRefNum)Str255        fName;short        vRefNum;short        fRefNum;{    WindowPtr        newWindow;    Rect            bounds;%if MPW%#pragma unused (bounds)   %end if%    newWindow = GetNewWindow (%WindName%ID, nil, (WindowPtr) -1L);    SetWTitle (newWindow, fName);    SetPort (newWindow);    SetNewInfo (newWindow);    %MakeItems%    cur->fileNum    = fRefNum;    cur->volNum        = vRefNum;    cur->dirty        = false;    cur->filename    = NewString (fName);    cur->windowKind = W%WindName%;    ShowWindow (newWindow);} /*Open%WindName%*//*----------*/void Close%WindName% (){    %DisposeItems%    DisposHandle ((Handle) cur->filename);    DiscardInfo (curWindow);} /*Close%WindName%*//*----------*/void MouseIn%WindName% (where, modifiers)Point        where;short        modifiers;{    Rect            bounds;%if MPW%#pragma unused (where, modifiers, bounds)   %end if%    %MouseInItems%} /*MouseIn%WindName%*//*----------*/void TypeIn%WindName%   (ch)char        ch;{    if (cur->text == nil) {        SysBeep (1);    } else {        TEKey (ch, cur->text);    }} /*TypeIn%WindName%*//*----------*/void Update%WindName% (){    Rect            bounds;%if MPW%#pragma unused (bounds)   %end if%    %UpdateItems%} /*Update%WindName%*//*----------*/void Activate%WindName% (activate)Boolean        activate;{%if MPW%#pragma unused (activate)   %end if%    %ActivateItems%} /*Activate%WindName%*//*----------*/void Resize%WindName% (){    /* application-specific code to resize items in window */} /*Resize%WindName%*//*----------*/pascal void Scroll%WindName% (newValue, oldValue)short        newValue;short        oldValue;{%if MPW%#pragma unused (newValue, oldValue)   %end if%    /* application-specific code to scroll window */} /*Scroll%WindName%*//*----------*/void Control%WindName%    (whichControl, whichPart, where)ControlHandle    whichControl;short             whichPart;Point            where;{    Rect            bounds;%if MPW%#pragma unused (whichControl, whichPart, where, bounds)   %end if%    %ControlItems%} /*Control%WindName%*/